perm filename FMZ[1,LCS] blob sn#305806 filedate 1977-09-19 generic text, type T, neo UTF8
OUTFILE←"FM.MSB";
INSTRUMENT FM;
OSCIL(P4,MAG/P2,P5);
INTRP(P9*P7*MAG,P9*P8*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4; 
END;

ARRAY F5,F6,F7(512); <F1 is already present.
SEG(F6);0,1  0,60  1,100; <Slope
SEG(F7);0 1 1 100;
SYNTH(F4);99 1 1 180 0 999; <180 DEG. SHIFT

PLAY;FM 0 .1 100 2000 F1 F3 0 15 P3 F7 F4;FINISH;
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CLAR  0 40
C00003 ENDMK
C⊗;